﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>
<%	
select case v
case "0"
we0="<br/>"
we00="<br/>"
%>
<card id="main" title="舞文弄墨"><p align="<%=qingtian.px%>">
<%
case "1"
zi="<span style=""color:#FF5500"">"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
we00="</divv>"
%>
<title>舞文弄墨</title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%
End Select
%>
<%=dao%>==舞文弄墨==<%=we0%><%=we%>
-------------
<%
Dim searcha,styles,wordss,typae
typae=request("type")
words=request("words")
style=request("style")
searcha=request("search")
searcha1 = Server.UrlEncode(searcha)
On Error Resume Next
Server.ScriptTimeOut=9999999
dim urll,city
Dim Url,Html,start,over,body,wap,wstr,str
Url="http://labs.soso.com/app.q?app=makepoem&type="&typae&"&words="&words&"&w="&searcha&"&style="&style&"&of=auto"
wstr=getHTTPPage(url)            
start=Instr(wstr,"<div class=""conter"">")
over=Instr(wstr,"<input type=""submit"" class=""s_button1"" value="" 复制 "" onfocus=""blur()"" onclick=""autocp(this)"" /></span>	</div>")
body=mid(wstr,start,over-start)
body = replace(body,"<em>","<b>")
body = replace(body,"<p>","")
body = replace(body,"</em>","</b>")
body = replace(body,"<p>","")
body = replace(body,"</li>","")
body = replace(body,"<li>","")
body = replace(body,"</p>","")


body = replace(body,"<input type=""submit"" class=""s_button1"" value="" 复制 "" onfocus=""blur()"" onclick=""autocp(this)"" /></span>	<span class=""other"" onmouseover=""javascript:this.className='now'"" onmouseout=""javascript:this.className='other'"">",we00&dao&"------------"&we00&we)
body = replace(body,"<div class=""conter"">","")


body = replace(body,"<span class=""other"" onmouseover=""javascript:this.className='now'"" onmouseout=""javascript:this.className='other'"">","")
body = replace(body,"</p>","")
body = replace(body,"<div>","")
body = replace(body,"</ul>","")
body = replace(body,"<ul>","")
body = replace(body,"</div>","")
body = replace(body,"</divv>","</div>")

if body="" then
Response.Write "无法为您查询,<a href='index.asp?sid="&sid&"'>请重新查询</a><br/>"
else
Response.write "<br/>"
Response.write body
end if
%>
--<%=searcha%><%=we0%><%=sou%>

----------<%=we0%><%=we%>
<%
Response.Write("<a href='index.asp?sid=" & sidd & "'>返回上级</a>")
Response.Write we0
end Function

function getHTTPPage(url) 
dim Http 
set Http=server.createobject("Microsoft.XMLHTTP") 
Http.open "GET",url,false 
Http.send() 
if Http.readystate<>4 then 
exit function 
end if 
getHTTPPage=bytesToBSTR(Http.responseBody,"gb2312") '注意WAP网页用utf-8,WEB用gb2312
set http=nothing 
if err.number<>0 then err.Clear 
end function 
Function BytesToBstr(body,Cset)
dim objstream 
set objstream = Server.CreateObject("adodb.stream") 
objstream.Type = 1 
objstream.Mode =3 
objstream.Open 
objstream.Write body 
objstream.Position = 0 
objstream.Type = 2 
objstream.Charset = Cset 
BytesToBstr = objstream.ReadText 
objstream.Close 
set objstream = nothing 
End Function 
%>